10 DIMX$(100),X(100):POKE53280,6
20 FORT=1TO100:X$(T)="/":X(T)=0:NEXT
1000 E1=0:PRINT"[147]    [158]MENUE":PRINT"[153] 1 -> EINGEBEN":PRINT"[153] 2 -> AUSGEBEN"
1010 GETA$:IFA$<>"1"ANDA$<>"2"THEN1010
1020 IFA$="2"THEN1350
1030 PRINT"[147]F1 - SEITE WEITER":PRINT"F3 - SEITE ZURUECK":PRINT"F8 - ENDE"
1040 PRINT"WAHL MIT CURSOR HOCH / RUNTER + RETURN"
1050 PRINT"RETURN BEI '/'    :    BEGRIFF EINGEBEN"
1060 PRINT"                     + PUNKTE  EINGEBEN"
1070 PRINT"RETURN BEI BEGRIFF:    PUNKTE  EINGEBEN"
1080 POKE198,0:WAIT198,1:POKE198,0:PRINT"[147]":F=1
1090 FORT=FTO100:PRINTX$(T),T
1100 IFT/23=INT(T/23)THENZ=T-22:GOSUB1150:PRINT"[147]"
1110 NEXT:IFT=>100ANDE1=0THENZ=T-8:GOSUB1150
1120 IFE1=1THEN1000
1130 IFF>1THENPRINT"[147]":GOTO1090
1140 GOTO1000
1150 A=1:D=0
1160 POKE214,A:POKE211,0:SYS58640:PRINT""X$(Z)"[146]  "
1170 IFD>0THENPOKE214,D:POKE211,0:SYS58640:PRINTX$(C)"  "
1180 GETA$:IFA$=""THEN1180
1190 IFA$=""ANDA<23THENC=Z:D=A:A=A+1:Z=Z+1:GOTO1160
1200 IFA$=""ANDA=>23THENC=Z:D=A:A=1:Z=Z-22:GOTO1160
1210 IFA$="[145]"ANDA>1THENC=Z:Z=Z-1:D=A:A=A-1:GOTO1160
1220 IFA$="[145]"ANDA=<1THENC=Z:D=A:A=A+22:Z=Z+22:GOTO1160
1230 IFA$=CHR$(13)ANDX$(Z)<>"/"THENP$="":GOTO1320
1240 IFA$=CHR$(13)ANDX$(Z)="/"ANDX$(Z-1)="/"THEN1180
1250 IFA$=CHR$(13)ANDX$(Z)="/"THENGOSUB1390:INPUTX$(Z):P$="":GOTO1320
1260 IFA$=CHR$(133)THEN1310
1270 IFA$=CHR$(134)ANDT=>46ANDT<101THENT=T-46:GOTO1310
1280 IFA$=CHR$(134)ANDT=>100THENF=70:GOTO1310
1290 IFA$=CHR$(140)THENT=100:E1=1:GOTO1310
1300 GOTO1160
1310 RETURN
1320 GOSUB1390:PRINTTAB(25);:INPUT"PUNKTE";P$
1330 P=VAL(P$):X(Z)=X(Z)+P
1340 GOSUB1390:PRINTTAB(25)"              ":GOTO1160
1350 PRINT"[147]":FORT=1TO100:PRINTX$(T),X(T)
1360 IFT/23=INT(T/23)THENGOSUB1400
1370 NEXT:IFA$=" "THENPOKE198,0:WAIT198,1:POKE198,0
1380 GOTO1000
1390 POKE214,A:POKE211,0:SYS58640:RETURN
1400 GETA$:IFA$<>" "ANDA$<>CHR$(140)THEN1400
1410 IFA$=CHR$(140)THENT=100
1420 PRINT"[147]":RETURN